VERSION = 3.00_regexpClassLibrary^ AddObject^ CloneObject^ Comment^ ControlCount^ Controls^ Destroy^ NewObject^ Objects^ ParentClass^ Picture^ ReadExpression^ ReadMethod^ RemoveObject^ ResetToDefault^ SaveAsClass^ ShowWhatsThis^ WriteExpression^ WriteMethod^ PixelsClass1custom_regexp»pattern Contains the pattern (regular expression) ^matches[1,0] Array containing the results of the string test *clear Clears all values *execute Tests the pattern against the string þòÿ ííø²%F”füU"Tô÷üÙ*ýþTô÷ü-ýþUTHISPATTERNMATCHESF ¯÷÷þ®÷÷÷÷þT÷üCÙVBScript.RegExpêNýþTô÷üô÷ýþTô÷ü÷ ýþTô÷ üaýþT÷üC÷ôö ýþôö üCô÷ øDýüøýþ T÷ ü-ýþ T÷üøýþµ÷÷ùþ#Tôö ü÷ýüøýüô÷øýþTôö ü÷ýüøýüô÷ýþT÷ü÷øýþ¶þ T÷ü-ýþ T÷ü-ýþ Bü÷øýþUTCSTR TLCASEMATTERSLOREGEXLOMATCH LOMATCHESIPATTERNTHIS IGNORECASEGLOBALEXECUTEMATCHESCOUNT TAMATCHINFO FIRSTINDEXVALUEclear,ÿÿexecutejÿÿ1á2±2ò1áRá±Òñ1ñA²±Ò17Ut)íPROCEDURE clear this.pattern = "*" this.matches = .f. ENDPROC PROCEDURE execute LParameters tcStr, tlCaseMatters Local loRegEx, loMatch, loMatches, i loRegEx = CreateObject("VBScript.RegExp") loRegEx.pattern = this.pattern loRegEx.ignoreCase = !tlCaseMatters loRegEx.global = .T. loMatches = loRegEx.execute(tcStr) Dimension this.matches[Max(loMatches.count,1),2] taMatchInfo = .F. i = 1 For Each loMatch In loMatches this.matches[i, 1] = loMatch.firstIndex + 1 && fox strings are not zero-based this.matches[i, 2] = loMatch.value i = i + 1 EndFor loMatches = .F. loRegEx = .F. Return i -1 ENDPROC 8Height = 25 Width = 28 pattern = * Name = "_regexp" custom